home *** CD-ROM | disk | FTP | other *** search
/ Tricks of the Mac Game Programming Gurus / TricksOfTheMacGameProgrammingGurus.iso / More Source / C⁄C++ / Xconq 7.0d37 / lib / 1757.g < prev    next >
Encoding:
Text File  |  1995-05-04  |  4.1 KB  |  157 lines  |  [TEXT/MPS ]
  1. (game-module "1757"
  2.   (title "Europe 1757")
  3.   (blurb "Central Europe, April, 1757.")
  4.   (base-module "friedrich")
  5. )
  6.  
  7. (include "t-cent-eur")
  8.  
  9. ;;; Modify the defaults in friedrich.
  10.  
  11. (add u* start-with 0)
  12.  
  13. ;;; Everybody has joined the war.
  14.  
  15. (side 1 (name "Prussia") (adjective "Prussian") (emblem-name "arms-prussia"))
  16. (side 2 (name "Hannover") (adjective "Hannoverian") (emblem-name "arms-hannover"))
  17. (side 3 (name "Austria") (adjective "Austrian") (emblem-name "arms-austria"))
  18. (side 4 (name "Saxony") (adjective "Saxon") (emblem-name "arms-saxony"))
  19. (side 5 (name "France") (adjective "French") (emblem-name "arms-france"))
  20. (side 6 (name "Russia") (adjective "Russian") (emblem-name "arms-russia"))
  21. (side 7 (name "Sweden") (adjective "Swedish") (emblem-name "arms-sweden"))
  22.  
  23. (set sides-max 7)
  24.  
  25. (town (n "Danzig") (@ 35 35))
  26. (town (n "Hamburg") (@ 12 32))
  27. (town (n "Emden") (@ 8 30))
  28. (town (n "Thorn") (@ 38 29))
  29. (town (n "Bremen") (@ 13 28))
  30. (town (n "Posen") (@ 36 25))
  31. (town (n "Cassel") (@ 18 19))
  32. (town (n "Leipzig") (@ 27 18))
  33. (town (n "Chemnitz") (@ 29 16))
  34. (town (n "Eger") (@ 31 12))
  35. (town (n "Wurzburg") (@ 24 11))
  36. (town (n "Donauworth") (@ 29 6))
  37. (town (n "Regensburg") (@ 32 6))
  38. (town (n "Passau") (@ 36 5))
  39. (town (n "Ulm") (@ 27 4))
  40.  
  41. (fortress 22 23 1 (n "Magdeburg"))
  42. (fortress (n "Berlin") (@ 25 26))
  43. (fortress (n "Stettin") (@ 26 30))
  44. (fortress (n "Kustrin") (@ 30 25))
  45. (fortress 36 21 1 (n "Glogau"))
  46. (fortress (n "Colberg") (@ 29 34))
  47. (fortress (n "Schweidinitz") (@ 39 17) (s 1))
  48. (fortress 40 18 1 (n "Breslau"))
  49. (fortress (n "Glatz") (@ 40 16) (s 1))
  50. (fortress (n "Brieg") (@ 42 17) (s 1))
  51. (fortress (n "Neisse") (@ 43 15) (s 1))
  52. (fortress (n "Munster") (@ 11 23))
  53. (fortress (n "Minden") (@ 14 24))
  54. (fortress (n "Hannover") (@ 17 25))
  55. (fortress (n "Stade") (@ 12 31))
  56. (fortress (n "Prague") (@ 35 12) (s 3))
  57. (fortress (n "Brunn") (@ 44 7))
  58. (fortress (n "Olmutz") (@ 46 9) (s 3))
  59. (fortress (n "Vienna") (@ 46 3))
  60. (fortress (n "Koniggratz") (@ 40 13))
  61. (fortress (n "Nuremberg") (@ 28 9))
  62. (fortress (n "Torgau") (@ 28 19) (s 4))
  63. (fortress (n "Dresden") (@ 31 17) (s 4))
  64. (fortress (n "Metz") (@ 15 8))
  65. (fortress (n "Strasbourg") (@ 20 5))
  66. (fortress (n "Venlo") (@ 7 20))
  67. (fortress (n "Roermond") (@ 9 18))
  68. (fortress (n "Cologne") (@ 12 17))
  69. (fortress (n "Coblenz") (@ 15 14))
  70. (fortress (n "Dusseldorf") (@ 11 19))
  71. (fortress (n "Mainz") (@ 18 12))
  72. (fortress (n "Wesel") (@ 9 22))
  73. (fortress (n "Frankfort") (@ 20 13))
  74. (fortress (n "Konigsberg") (@ 38 38))
  75. (fortress (n "Stralsund") (@ 20 34))
  76.  
  77. (army 25 26 1)
  78. (army 30 25 1)
  79. (army 22 23 1)
  80. (army 28 19 1)
  81. (army 31 17 1)
  82. (army 40 18 1)
  83. (army 36 18 1)
  84. (army 42 17 1)
  85. (army 43 15 1)
  86. (army 40 16 1)
  87. (army 39 17 1)
  88. (army 36 21 1)
  89. (general 31 17 1 (n "Keith"))
  90. (general 29 16 1 (n "Maurice"))
  91. (marshal 34 17 1 (n "Brunswick"))
  92. (marshal 39 17 1 (n "Schwerin"))
  93. ;(prince -1 -1 1 (n "Ferdinand"))
  94. (king 31 17 1 (n "Frederick"))
  95. (depot 36 18 1)
  96.  
  97. (army 12 31 2)
  98. (army 13 28 2)
  99. (army 15 25 2)
  100. (army 17 25 2)
  101. (army 14 24 2)
  102. (army 16 23 2)
  103. (general 14 24 2 (n "Karl"))
  104. (marshal 16 23 2 (n "Zastrow"))
  105. (prince 17 25 2 (n "Cumberland"))
  106.  
  107. (army 36 16 3)
  108. (army 40 13 3)
  109. (army 31 12 3)
  110. (army 44 7 3)
  111. (army 46 9 3)
  112. (army 46 3 3)
  113. (army 35 12 3)
  114. (general 31 12 3 (n "Darenberg"))
  115. (general 36 16 3 (n "Koenigsegg"))
  116. (general 46 9 3 (n "Nadasy"))
  117. (marshal 35 12 3 (n "Browne"))
  118. (marshal 40 13 3 (n "Serbeloni"))
  119. (marshal 46 3 3 (n "Daun"))
  120. (king 35 12 3 (n "Charles"))
  121. (depot 36 16 3)
  122.  
  123. (army 29 17 4 (hp 1))
  124.  
  125. (army 9 22 5)
  126. (army 11 19 5)
  127. (army 9 18 5)
  128. (army 12 17 5)
  129. (army 15 14 5)
  130. (army 20 13 5)
  131. (army 18 12 5)
  132. (army 15 8 5)
  133. (army -20 -5 5 (cp -1) (x (appear 10)))
  134. (general 7 20 5 (n "Broglie"))
  135. (general 9 22 5 (n "Chevert"))
  136. (general 9 18 5 (n "Contades"))
  137. (general 11 19 5 (n "St. Germain"))
  138. (marshal 7 20 5 (n "D'Estrees"))
  139. (marshal -20 -5 5 (cp -1) (n "Soubise") (x (appear 10)))
  140.  
  141. (army -44 -34 6 (hp 22) (cp -1) (x (appear 8)))
  142. (marshal -44 -34 6 (n "Apraxin") (cp -1) (x (appear 8)))
  143.  
  144. (army 20 34 7)
  145. (marshal 20 34 7 (n "Hamilton"))
  146.  
  147. ;;; Need some better scorekeepers.
  148.  
  149. (scorekeeper (do last-side-wins))
  150.  
  151. (set initial-date "Apr 1757")
  152.  
  153. ;;; Game only lasts until the end of the year (armies would
  154. ;;; invariably go into winter quarters from December thru March).
  155.  
  156. (set last-turn 18)
  157.